home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TSPA3260.ZIP / TSERR.TST < prev    next >
Text File  |  1993-01-23  |  1KB  |  66 lines
  1. {$R+}  (* Index range check on *)
  2.  
  3. (* This is a test program for the TSERR.TPU unit
  4.    23-Jan-93 *)
  5.  
  6. uses TSERR;
  7.  
  8. procedure LOGO;
  9. begin
  10.   writeln;
  11.   writeln ('TSERR unit test by Prof. Timo Salmi');
  12.   writeln ('University of Vaasa, Finland, ts@uwasa.fi');
  13. {$IFDEF VER40}
  14.   writeln ('TP version 4.0');
  15. {$ENDIF}
  16. {$IFDEF VER50}
  17.   writeln ('TP version 5.0');
  18. {$ENDIF}
  19. {$IFDEF VER55}
  20.   writeln ('TP version 5.5');
  21. {$ENDIF}
  22. {$IFDEF VER60}
  23.   writeln ('TP version 6.0');
  24. {$ENDIF}
  25. {$IFDEF VER70}
  26.   writeln ('TP version 7.0');
  27. {$ENDIF}
  28.   writeln;
  29. end;
  30.  
  31. procedure TEST1;
  32. var s : string[79];
  33.     i : byte;
  34. begin
  35.   i := 80;
  36.   s[i] := ' ';
  37. end;  (* test1 *)
  38.  
  39. procedure TEST2;
  40. var x : real;
  41. begin
  42.   x := 7.0; writeln (1.0/x);
  43.   x := 0.0; writeln (1.0/x);
  44.   x := 7.0; writeln (4.0/x);
  45. end;  (* test2 *)
  46.  
  47. procedure TEST3;
  48. var f : file;
  49. begin
  50.   assign (f, 'c:\NosuchF.ile');
  51.   reset (f);
  52.   close (f);
  53. end;  (* test3 *)
  54.  
  55. (* Main program *)
  56. begin
  57.   LOGO;
  58.   TEST1;
  59.   {}
  60.   TEST2;  { Because test1 results in an error you have to omit it, }
  61.           { if you want test2, and so on }
  62.   {}
  63.   TEST3;
  64.   write ('Press «═╝ '); readln;
  65. end.  (* tsuntd.tst *)
  66.